home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2sp.plp < prev    next >
Text File  |  1993-11-30  |  4KB  |  164 lines

  1. /**********   プロフィールの受信予約を行う  v1.04a用   **********/
  2.  
  3. var endtype[3];
  4. var dest[80];
  5. var Handle[40];
  6. var Book[10];
  7. %BMail{
  8.     var f2[1000];
  9.     var b2[1000];
  10.     var rtn2[700];
  11.     f2:=forum;
  12.     rtn2:=rtn;
  13.     b2:={loop(} |@xc({7b})|
  14.     {select({ どのアドレスブックを使いますか?},999,{im({Yes})},}
  15.         |@xc({7b})|{ MAIL }|@xc({7d})|{,}
  16.         |@xc({7b})|{ MemLst(}
  17.         |@xc({7b})|{MAIL}|@xc({7d})|{); im({No}); }
  18.         |@xc({7d});
  19.     loop({
  20.     %fnset    @head(f2,{/});
  21.     %fname    @head(fnset,{(});
  22.     %ccsset    @body(fnset,{(},{)});
  23.     case(b2<>{},{Yes},{b2:=b2|{,}});
  24.     b2:=b2    |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
  25.         |@xc({7b})|{ MemLst(}
  26.         |@xc({7b})|fname|@xc({7d})|{); im({No}); }
  27.         |@xc({7d});
  28.     f2:=@body(f2,{/});
  29.     %mae    @head(rtn2,fname);
  30.     %ushiro    @body(rtn2,fname);
  31.     rtn2:=mae|@body(ushiro,{/});
  32.     im(f2<>{});
  33.     });
  34.     case(rtn2<>{},{Yes},{
  35.         loop({
  36.         %fnset    @head(rtn2,{/});
  37.         %fname    @head(fnset,{(});
  38.         case(b2<>{},{Yes},{b2:=b2|{,}});
  39.         b2:=b2    |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
  40.             |@xc({7b})|{ MemLst(}
  41.             |@xc({7b})|fname|@xc({7d})|{); im({No}); }
  42.             |@xc({7d});
  43.         rtn2:=@body(rtn2,{/});
  44.         im(rtn2<>{});
  45.         });
  46.     });
  47.     b2:=b2|{); }|@xc({7d})|{);};
  48.     case(forum={},
  49.     {Yes}, {im({});
  50.     },{No},{im(b2);
  51.     });
  52. };
  53. %SelMail    @BMail;
  54. %DestProf{
  55.     %MemLst{[path]
  56.         mclear(2);
  57.         case(@filechk(logd|{\}|path|{\MEMBER.TXT}),
  58.         {Yes}, {mread(logd|{\}|path|{\MEMBER.TXT},2);
  59.             Book:=path;
  60.         },{No},{madd(2,{});
  61.             Book:={MAIL};
  62.         });
  63.         mset(2,{w});
  64.     };
  65.     %Dmail{
  66.         loop({
  67.             %name @input({ 受信相手のIDを入れてください},,{});
  68.             case(@nochar(name)=8,
  69.             {Yes},{
  70.                 footnote({});
  71.                 dest:={Prof :}|name|{         };
  72.                 im({No});
  73.             },{No},{
  74.                 case(name<>{},
  75.                 {Yes},{
  76.                     footnote({ 「}|name|
  77.                         {」は 英数字8文字でありません});
  78.                     im({Yes});
  79.                 },{No},{
  80.                     dest:={};
  81.                     im({No});
  82.                 });
  83.             });
  84.         });
  85.     };
  86.     %SetHandle{
  87.         Handle:=@head(@getchar(@memo(2,@xlinenum),11,18),{\n});
  88.         loop({
  89.             case(@getchar(Handle,@nochar(Handle),1)={ },
  90.             {Yes},{    Handle:=@body(Handle,,{ }); im({Yes});
  91.             },{No},{
  92.                 case(@getchar(Handle,@nochar(Handle)-1,2)={ },
  93.                 {Yes},{    Handle:=@body(Handle,,{ }); im({Yes});
  94.                 },{No},{im({No});
  95.                 });
  96.             });
  97.         });
  98.     };
  99.     case(@mlast==0,{Yes},{ mclear(1); madd(1,{})});
  100.     MemLst(Book);
  101.     loop({    mopen(2,0,21,256,459);
  102.         footnote({直入決定変更    終了},{b});
  103.         loop({    waitx(1000);
  104.         im(@xtype!=2 && @xtype<100 || @xlinenum<0)
  105.     });
  106.     case(@PFK(@xtype),
  107.             2,{ dest:={Prof :}|@getchar(@memo(2,@xlinenum),1,8)|
  108.                         {         };
  109.             SetHandle;
  110.             im({No});
  111.         },101,{ Dmail;
  112.         },102,{ dest:={Prof :}|@getchar(@memo(2,@xlinenum),1,8)|
  113.                         {         };
  114.             SetHandle;
  115.             im({No});
  116.         },103,{    mclose(3);
  117.             loop({
  118.                 SelMail;
  119.                 case(@memo(2)={},{Yes},{
  120.                     footnote({ 選択されたアドレス}
  121.                         |{ブックは空です});
  122.                 });
  123.                 im(@memo(2)={});
  124.             });
  125.             im({Yes});
  126.         },105,{    dest:={};
  127.             im({No});
  128.         },   ,{    case(@mcheck!=0,{Yes},{mclose(1)});
  129.             im({Yes});
  130.         });
  131.         case(@mcheck=2,{Yes},{mclose(3)});
  132.         footnote({});
  133.     });
  134. };
  135.  
  136. Book:={MAIL};
  137. loop({
  138.     CloseAllMemo;
  139.     Handle:={};
  140.     DestProf;
  141.     case(dest<>{},{Yes},{
  142.     loop({
  143.         Handle:=@input({ 相手ハンドル名を入力してください},,Handle);
  144.         im(@nochar(Handle)>18)
  145.     });
  146.     case(Handle={},{Yes},{Handle:=@getchar(dest,7,8)});
  147.     loop({
  148.         endtype:=@select({ 「}|Handle|{」 氏のプロフィールを}|
  149.                     {受信予約しますか?},99999,{im({戻});
  150.             },{   受信予約をする  },    {im({予});
  151.             },{   受信を保留する  },    {im({保});
  152.             },{   予約しない},        {im({捨});
  153.          });
  154.         im(endtype={戻});
  155.     });
  156.     case(endtype<>{捨},{Yes},{
  157.         delfile(SaveFName);
  158.         IndexLine:=endtype|{     }|dest|{:}|Handle|{\n};
  159.         write(IndexFName,IndexLine);
  160.     });
  161.     });
  162.     im(dest<>{});
  163. });
  164.